package Get4;

use LookDown;
use HTML::TreeBuilder;

has file => (
    is      => 'rw',
    default => 'file.html'
);

has tree => (
    is         => 'rw',
    lazy_build => 1
);

sub _build_tree {
    my ($self) = @_;
    HTML::TreeBuilder->new_from_file( $self->file );
}

has_ld name => [ id => 'name' ] ;
  

has_ld w =>    [ id => qr/w.lc.me/ ] ;


1;

package main;

my $o = Get4->new;

warn $o->w;

1;
